home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / prefs_o.dxr / 00002_Main Scripts.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  479 b   |  23 lines
  1. on startMovie
  2.   global Difficulty, QuizFreq, sound, SoundFX
  3.   cursor(4)
  4.   SoundControl()
  5.   BSetup(37, 37)
  6.   repeat with count = 21 to 35
  7.     set the hilite of cast count to 0
  8.   end repeat
  9.   set the hilite of cast (21 + Difficulty) to 1
  10.   set the hilite of cast (27 + (QuizFreq * -1)) to 1
  11.   set the hilite of cast (31 + (sound * -1)) to 1
  12.   set the hilite of cast (35 + (SoundFX * -1)) to 1
  13. end
  14.  
  15. on Back
  16.   ReturnFromSpecial()
  17. end
  18.  
  19. on idle
  20.   SoundLoop()
  21.   CheckHilite(37, 37)
  22. end
  23.